object FClientesCons: TFClientesCons
  Left = 192
  Top = 114
  Width = 600
  Height = 440
  Caption = 'Consulta'
  Color = clMoneyGreen
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'System'
  Font.Style = [fsBold]
  KeyPreview = True
  OldCreateOrder = False
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object rgpopcoes: TRadioGroup
    Left = 8
    Top = 8
    Width = 193
    Height = 113
    Caption = '  Ordena'#231#227'o  '
    Color = 10205837
    Columns = 2
    Items.Strings = (
      'C'#243'digo '
      'Nome'
      'Endere'#231'o'
      'Cidade'
      'UF'
      'Telefone'
      'CNPJ'
      'CPF')
    ParentColor = False
    TabOrder = 0
    OnClick = rgpopcoesClick
  end
  object GroupBox1: TGroupBox
    Left = 208
    Top = 8
    Width = 377
    Height = 54
    Caption = ' Filtro '
    Color = 10205837
    ParentColor = False
    TabOrder = 1
    object Label1: TLabel
      Left = 4
      Top = 25
      Width = 39
      Height = 16
      Caption = 'Inicial'
    end
    object Label2: TLabel
      Left = 183
      Top = 25
      Width = 32
      Height = 16
      Caption = 'Final'
    end
    object btnfiltro: TSpeedButton
      Left = 348
      Top = 22
      Width = 23
      Height = 23
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        3333333777333777FF33339993707399933333773337F3777FF3399933000339
        9933377333777F3377F3399333707333993337733337333337FF993333333333
        399377F33333F333377F993333303333399377F33337FF333373993333707333
        333377F333777F333333993333101333333377F333777F3FFFFF993333000399
        999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
        99933773FF777F3F777F339993707399999333773F373F77777F333999999999
        3393333777333777337333333999993333333333377777333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = btnfiltroClick
    end
    object MKEinicial: TMaskEdit
      Left = 46
      Top = 21
      Width = 129
      Height = 24
      TabOrder = 0
      OnKeyPress = MKEinicialKeyPress
    end
    object MKEfinal: TMaskEdit
      Left = 216
      Top = 21
      Width = 128
      Height = 24
      TabOrder = 1
      OnKeyPress = MKEfinalKeyPress
    end
  end
  object GroupBox2: TGroupBox
    Left = 208
    Top = 72
    Width = 377
    Height = 49
    Caption = ' Pesquisa Incremental'
    Color = 10205837
    ParentColor = False
    TabOrder = 2
    object MKEpesquisa: TMaskEdit
      Left = 5
      Top = 18
      Width = 316
      Height = 24
      TabOrder = 0
      OnChange = MKEpesquisaChange
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 128
    Width = 577
    Height = 217
    DataSource = dsConsulta
    FixedColor = 10205837
    TabOrder = 3
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = 'System'
    TitleFont.Style = [fsBold]
    Columns = <
      item
        Expanded = False
        FieldName = 'Codigo'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Nome'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Endereco'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cidade'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Uf'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cpf'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cnpj'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Tel1'
        Visible = True
      end>
  end
  object BtnImprimir: TBitBtn
    Left = 96
    Top = 376
    Width = 75
    Height = 25
    Caption = '&Imprimir'
    TabOrder = 5
    OnClick = BtnImprimirClick
  end
  object btnfechar: TBitBtn
    Left = 504
    Top = 376
    Width = 75
    Height = 25
    Caption = '&Sair'
    TabOrder = 6
    OnClick = btnfecharClick
  end
  object btnabrir: TBitBtn
    Left = 16
    Top = 376
    Width = 75
    Height = 25
    Caption = '&Abrir'
    TabOrder = 4
    OnClick = btnabrirClick
  end
  object dsConsulta: TDataSource
    DataSet = Consulta
    Left = 248
    Top = 368
  end
  object Consulta: TQuery
    DatabaseName = 'Caixa'
    SQL.Strings = (
      'Select * from Clientes')
    Left = 280
    Top = 368
    object ConsultaCodigo: TFloatField
      FieldName = 'Codigo'
      Origin = 'CAIXA."clientes.DB".Codigo'
    end
    object ConsultaNome: TStringField
      FieldName = 'Nome'
      Origin = 'CAIXA."clientes.DB".Nome'
      Size = 40
    end
    object ConsultaEndereco: TStringField
      FieldName = 'Endereco'
      Origin = 'CAIXA."clientes.DB".Endereco'
      Size = 30
    end
    object ConsultaCidade: TStringField
      FieldName = 'Cidade'
      Origin = 'CAIXA."clientes.DB".Cidade'
      Size = 25
    end
    object ConsultaUf: TStringField
      FieldName = 'Uf'
      Origin = 'CAIXA."clientes.DB".Uf'
      Size = 0
    end
    object ConsultaCpf: TStringField
      FieldName = 'Cpf'
      Origin = 'CAIXA."clientes.DB".Cpf'
      Size = 11
    end
    object ConsultaCnpj: TStringField
      FieldName = 'Cnpj'
      Origin = 'CAIXA."clientes.DB".Cnpj'
      Size = 18
    end
    object ConsultaTel1: TStringField
      FieldName = 'Tel1'
      Origin = 'CAIXA."clientes.DB".Tel1'
      Size = 9
    end
  end
end
